home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / screen.swg / 0051_Turn SCREEN On-Off.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-26  |  594 b   |  21 lines
  1. {
  2. I use alot of line draws and some text on the screen....the lines come out
  3. first and then the text a second or two later....is there a way so that the
  4. whole output comes at once.  I tried Setvisualpage and setactivepage but the
  5. the whole output screen is off.
  6.  
  7.         To Turn On/Off the Screen you may use these procedure
  8. }
  9. Procedure OnScreen;
  10. Begin
  11.      Port[$3c4]:=1;
  12.      Port[$3c5]:=Screen_AttriBute_Tempolary;
  13. end;
  14.  
  15. Procedure OffScreen;
  16. Begin
  17.      Port[$3c4]:=1;
  18.      Screen_Attribute_Tempolary:=Port[$3c5];
  19.      Port[$3c5]:=Screen_AttriBute_Tempolary or $20;
  20. end;
  21.